home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 June: Reference Library / Dev.CD Jun 99 RL Disk 1.toast / Technical Documentation / Develop / develop Issue 23 / develop Issue 23 code / Internet Config.sea / Internet Config / IC 1.1 / ICProgKit1.1 / Examples / Space Aliens / SpaceAliens.p < prev    next >
MacBinary  |  1995-02-05  |  9.4 KB  |  [TEXT/PJMM]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Applause Picture (image/applausePicture) ext Unsupported
1% dexvert bsdiff patch (other/bsdiffPatch) ext Unsupported
1% dexvert imgdiff patch (other/imgdiffPatch) ext Unsupported
1% dexvert MATLAB p-code (other/matlabPCode) ext Unsupported
1% dexvert WSUS Patch Storage File (other/wsusPatchStorageFile) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Feb 5 12:43:12 1995, modified Sun Feb 5 12:43:12 1995, creator Think Pascal, type ASCII, 8592 bytes "SpaceAliens.p" , at 0x2210 670 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[PJMM]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 70 61 63 65 41 | 6c 69 65 6e 73 2e 70 00 |..SpaceA|liens.p.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 21 90 00 | 00 02 9e ab 5a be b0 ab |.....!..|....Z...|
|00000060| 5a be b0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Z.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fe d0 00 00 |........|........|
|00000080| 70 72 6f 67 72 61 6d 20 | 53 70 61 63 65 41 6c 69 |program |SpaceAli|
|00000090| 65 6e 73 3b 0d 09 28 2a | 20 53 70 61 63 65 20 41 |ens;..(*| Space A|
|000000a0| 6c 69 65 6e 73 20 41 74 | 65 20 4d 79 20 49 63 6f |liens At|e My Ico|
|000000b0| 6e 73 20 2a 29 0d 09 28 | 2a 20 41 20 64 72 61 67 |ns *)..(|* A drag|
|000000c0| 20 61 6e 64 20 64 72 6f | 70 20 75 74 69 6c 69 74 | and dro|p utilit|
|000000d0| 79 20 74 6f 20 66 69 78 | 20 74 68 65 20 74 79 70 |y to fix| the typ|
|000000e0| 65 20 61 6e 64 20 2a 29 | 0d 09 28 2a 20 63 72 65 |e and *)|..(* cre|
|000000f0| 61 74 6f 72 20 6f 66 20 | 61 6e 79 20 64 72 6f 70 |ator of |any drop|
|00000100| 70 65 64 20 6f 6e 20 66 | 69 6c 65 20 62 61 73 65 |ped on f|ile base|
|00000110| 64 20 6f 6e 20 69 74 73 | 20 2a 29 0d 09 28 2a 20 |d on its| *)..(* |
|00000120| 65 78 74 65 6e 73 69 6f | 6e 20 61 6e 64 20 74 68 |extensio|n and th|
|00000130| 65 20 64 61 74 61 62 61 | 73 65 20 6f 66 20 65 78 |e databa|se of ex|
|00000140| 74 65 6e 73 69 6f 6e 20 | 6d 61 70 70 69 6e 67 73 |tension |mappings|
|00000150| 20 2a 29 0d 09 28 2a 20 | 70 72 6f 76 69 64 65 64 | *)..(* |provided|
|00000160| 20 62 79 20 49 6e 74 65 | 72 6e 65 74 20 43 6f 6e | by Inte|rnet Con|
|00000170| 66 69 67 2e 20 2a 29 0d | 0d 09 75 73 65 73 0d 09 |fig. *).|..uses..|
|00000180| 09 28 2a 20 73 74 61 6e | 64 61 72 64 20 73 79 73 |.(* stan|dard sys|
|00000190| 74 65 6d 20 75 6e 69 74 | 73 20 6e 65 65 64 65 64 |tem unit|s needed|
|000001a0| 20 74 6f 20 64 6f 20 41 | 70 70 6c 65 45 76 65 6e | to do A|ppleEven|
|000001b0| 74 73 20 2a 29 0d 09 09 | 28 2a 20 72 65 6d 65 6d |ts *)...|(* remem|
|000001c0| 62 65 72 20 74 68 61 74 | 20 54 68 69 6e 6b 20 50 |ber that| Think P|
|000001d0| 61 73 63 61 6c 20 61 75 | 74 6f 6d 61 74 69 63 61 |ascal au|tomatica|
|000001e0| 6c 6c 79 20 75 73 65 73 | 20 2a 29 0d 09 09 28 2a |lly uses| *)...(*|
|000001f0| 20 6d 6f 73 74 20 6f 66 | 20 74 68 65 20 62 61 73 | most of| the bas|
|00000200| 65 20 6f 70 65 72 61 74 | 69 6e 67 20 73 79 73 74 |e operat|ing syst|
|00000210| 65 6d 20 2a 29 0d 09 09 | 45 50 50 43 2c 20 41 70 |em *)...|EPPC, Ap|
|00000220| 70 6c 65 45 76 65 6e 74 | 73 2c 20 0d 0d 09 09 28 |pleEvent|s, ....(|
|00000230| 2a 20 73 74 61 6e 64 61 | 72 64 20 49 43 20 75 6e |* standa|rd IC un|
|00000240| 69 74 73 20 2a 29 0d 09 | 09 49 43 54 79 70 65 73 |its *)..|.ICTypes|
|00000250| 2c 20 49 43 41 50 49 2c | 20 49 43 4b 65 79 73 2c |, ICAPI,| ICKeys,|
|00000260| 20 0d 0d 09 09 28 2a 20 | 62 6f 6e 75 73 20 49 43 | ....(* |bonus IC|
|00000270| 20 75 6e 69 74 73 2c 20 | 65 78 74 72 61 20 6c 69 | units, |extra li|
|00000280| 62 72 61 72 69 65 73 20 | 73 68 69 70 70 65 64 20 |braries |shipped |
|00000290| 2a 29 0d 09 09 28 2a 20 | 61 73 20 73 6f 75 72 63 |*)...(* |as sourc|
|000002a0| 65 20 63 6f 64 65 20 2a | 29 0d 09 09 49 43 4d 61 |e code *|)...ICMa|
|000002b0| 70 70 69 6e 67 73 2c 20 | 49 43 53 75 62 73 3b 0d |ppings, |ICSubs;.|
|000002c0| 0d 28 2a 20 2a 2a 2a 2a | 2a 20 53 74 61 6e 64 61 |.(* ****|* Standa|
|000002d0| 72 64 20 53 75 62 72 6f | 75 74 69 6e 65 73 20 2a |rd Subro|utines *|
|000002e0| 2a 2a 2a 2a 20 2a 29 0d | 0d 09 66 75 6e 63 74 69 |**** *).|..functi|
|000002f0| 6f 6e 20 47 6f 74 52 65 | 71 75 69 72 65 64 50 61 |on GotRe|quiredPa|
|00000300| 72 61 6d 73 20 28 74 68 | 65 41 70 70 6c 65 45 76 |rams (th|eAppleEv|
|00000310| 65 6e 74 3a 20 41 70 70 | 6c 65 45 76 65 6e 74 29 |ent: App|leEvent)|
|00000320| 3a 20 4f 53 45 72 72 3b | 0d 09 09 28 2a 20 73 74 |: OSErr;|...(* st|
|00000330| 61 6e 64 61 72 64 20 41 | 70 70 6c 65 45 76 65 6e |andard A|ppleEven|
|00000340| 74 20 72 6f 75 74 69 6e | 65 20 63 6f 70 69 65 64 |t routin|e copied|
|00000350| 20 6f 75 74 20 6f 66 20 | 4e 49 4d 3a 49 41 43 20 | out of |NIM:IAC |
|00000360| 2a 29 0d 09 09 76 61 72 | 0d 09 09 09 74 79 70 65 |*)...var|....type|
|00000370| 43 6f 64 65 3a 20 44 65 | 73 63 54 79 70 65 3b 0d |Code: De|scType;.|
|00000380| 09 09 09 61 63 74 75 61 | 6c 53 69 7a 65 3a 20 53 |...actua|lSize: S|
|00000390| 69 7a 65 3b 0d 09 09 09 | 65 72 72 3a 20 4f 53 45 |ize;....|err: OSE|
|000003a0| 72 72 3b 0d 09 62 65 67 | 69 6e 0d 09 09 65 72 72 |rr;..beg|in...err|
|000003b0| 20 3a 3d 20 41 45 47 65 | 74 41 74 74 72 69 62 75 | := AEGe|tAttribu|
|000003c0| 74 65 50 74 72 28 74 68 | 65 41 70 70 6c 65 45 76 |tePtr(th|eAppleEv|
|000003d0| 65 6e 74 2c 0d 09 09 09 | 09 09 09 09 6b 65 79 4d |ent,....|....keyM|
|000003e0| 69 73 73 65 64 4b 65 79 | 77 6f 72 64 41 74 74 72 |issedKey|wordAttr|
|000003f0| 2c 20 74 79 70 65 57 69 | 6c 64 43 61 72 64 2c 0d |, typeWi|ldCard,.|
|00000400| 09 09 09 09 09 09 09 74 | 79 70 65 43 6f 64 65 2c |.......t|ypeCode,|
|00000410| 20 6e 69 6c 2c 20 30 2c | 20 61 63 74 75 61 6c 53 | nil, 0,| actualS|
|00000420| 69 7a 65 29 3b 0d 09 09 | 69 66 20 65 72 72 20 3d |ize);...|if err =|
|00000430| 20 65 72 72 41 45 44 65 | 73 63 4e 6f 74 46 6f 75 | errAEDe|scNotFou|
|00000440| 6e 64 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |nd then |begin...|
|00000450| 09 47 6f 74 52 65 71 75 | 69 72 65 64 50 61 72 61 |.GotRequ|iredPara|
|00000460| 6d 73 20 3a 3d 20 6e 6f | 45 72 72 3b 0d 09 09 65 |ms := no|Err;...e|
|00000470| 6e 64 0d 09 09 65 6c 73 | 65 20 69 66 20 65 72 72 |nd...els|e if err|
|00000480| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00000490| 67 69 6e 0d 09 09 09 47 | 6f 74 52 65 71 75 69 72 |gin....G|otRequir|
|000004a0| 65 64 50 61 72 61 6d 73 | 20 3a 3d 20 65 72 72 41 |edParams| := errA|
|000004b0| 45 45 76 65 6e 74 4e 6f | 74 48 61 6e 64 6c 65 64 |EEventNo|tHandled|
|000004c0| 3b 0d 09 09 65 6e 64 0d | 09 09 65 6c 73 65 20 62 |;...end.|..else b|
|000004d0| 65 67 69 6e 0d 09 09 09 | 47 6f 74 52 65 71 75 69 |egin....|GotRequi|
|000004e0| 72 65 64 50 61 72 61 6d | 73 20 3a 3d 20 65 72 72 |redParam|s := err|
|000004f0| 3b 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |;...end;| (* if *|
|00000500| 29 0d 09 65 6e 64 3b 20 | 28 2a 20 47 6f 74 52 65 |)..end; |(* GotRe|
|00000510| 71 75 69 72 65 64 50 61 | 72 61 6d 73 20 2a 29 0d |quiredPa|rams *).|
|00000520| 0d 28 2a 20 2a 2a 2a 2a | 2a 20 47 6c 6f 62 61 6c |.(* ****|* Global|
|00000530| 20 44 65 63 6c 61 72 61 | 74 69 6f 6e 73 20 2a 2a | Declara|tions **|
|00000540| 2a 2a 2a 20 2a 29 0d 0d | 09 63 6f 6e 73 74 0d 09 |*** *)..|.const..|
|00000550| 09 6d 79 5f 63 72 65 61 | 74 6f 72 20 3d 20 27 53 |.my_crea|tor = 'S|
|00000560| 41 38 49 27 3b 0d 09 09 | 09 09 09 28 2a 20 74 68 |A8I';...|...(* th|
|00000570| 65 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 73 69 |e applic|ation si|
|00000580| 67 6e 61 74 75 72 65 20 | 2a 29 0d 09 76 61 72 0d |gnature |*)..var.|
|00000590| 09 09 71 75 69 74 5f 6e | 6f 77 3a 20 62 6f 6f 6c |..quit_n|ow: bool|
|000005a0| 65 61 6e 3b 0d 09 09 09 | 09 09 28 2a 20 73 65 74 |ean;....|..(* set|
|000005b0| 20 74 6f 20 74 72 75 65 | 20 77 68 65 6e 20 79 6f | to true| when yo|
|000005c0| 75 20 77 61 6e 74 20 6d | 61 69 6e 20 6c 6f 6f 70 |u want m|ain loop|
|000005d0| 20 74 6f 20 71 75 69 74 | 20 2a 29 0d 09 09 69 6e | to quit| *)...in|
|000005e0| 73 74 61 6e 63 65 3a 20 | 49 43 49 6e 73 74 61 6e |stance: |ICInstan|
|000005f0| 63 65 3b 0d 09 09 09 09 | 09 28 2a 20 67 6c 6f 62 |ce;.....|.(* glob|
|00000600| 61 6c 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 20 74 6f |al conne|ction to|
|00000610| 20 49 43 20 2a 29 0d 09 | 09 6d 61 70 70 69 6e 67 | IC *)..|.mapping|
|00000620| 73 3a 20 48 61 6e 64 6c | 65 3b 0d 09 09 09 09 09 |s: Handl|e;......|
|00000630| 28 2a 20 74 68 65 20 6d | 61 70 70 69 6e 67 20 70 |(* the m|apping p|
|00000640| 72 65 66 65 72 65 6e 63 | 65 20 61 73 20 72 65 74 |referenc|e as ret|
|00000650| 75 72 6e 65 64 20 62 79 | 20 49 43 20 2a 29 0d 0d |urned by| IC *)..|
|00000660| 28 2a 20 2a 2a 2a 2a 2a | 20 44 6f 20 54 68 65 20 |(* *****| Do The |
|00000670| 48 61 72 64 20 53 74 75 | 66 66 20 2a 2a 2a 2a 2a |Hard Stu|ff *****|
|00000680| 20 2a 29 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 50 | *)...fu|nction P|
|00000690| 72 6f 63 65 73 73 44 6f | 63 75 6d 65 6e 74 20 28 |rocessDo|cument (|
|000006a0| 66 73 73 3a 20 46 53 53 | 70 65 63 29 3a 20 4f 53 |fss: FSS|pec): OS|
|000006b0| 45 72 72 3b 0d 09 09 28 | 2a 20 74 68 69 73 20 69 |Err;...(|* this i|
|000006c0| 73 20 74 68 65 20 63 6f | 72 65 20 6f 66 20 74 68 |s the co|re of th|
|000006d0| 65 20 70 72 6f 67 72 61 | 6d 20 2a 29 0d 09 09 28 |e progra|m *)...(|
|000006e0| 2a 20 74 68 65 20 66 73 | 73 20 70 61 72 61 6d 65 |* the fs|s parame|
|000006f0| 74 65 72 20 69 73 20 61 | 20 66 69 6c 65 20 77 68 |ter is a| file wh|
|00000700| 6f 73 65 20 65 78 74 65 | 6e 73 69 6f 6e 20 2a 29 |ose exte|nsion *)|
|00000710| 0d 09 09 28 2a 20 77 65 | 27 6c 6c 20 6c 6f 6f 6b |...(* we|'ll look|
|00000720| 20 75 70 20 69 6e 20 74 | 68 65 20 49 43 20 64 61 | up in t|he IC da|
|00000730| 74 61 62 61 73 65 20 2a | 29 0d 09 09 28 2a 20 6d |tabase *|)...(* m|
|00000740| 61 70 70 69 6e 67 73 20 | 67 6c 6f 62 61 6c 20 76 |appings |global v|
|00000750| 61 72 69 61 62 6c 65 20 | 69 73 20 61 6c 72 65 61 |ariable |is alrea|
|00000760| 64 79 20 73 65 74 20 75 | 70 20 2a 29 0d 09 09 28 |dy set u|p *)...(|
|00000770| 2a 20 74 6f 20 63 6f 6e | 74 61 69 6e 20 74 68 61 |* to con|tain tha|
|00000780| 74 20 64 61 74 61 62 61 | 73 65 20 2a 29 0d 09 09 |t databa|se *)...|
|00000790| 76 61 72 0d 09 09 09 65 | 72 72 3a 20 4f 53 45 72 |var....e|rr: OSEr|
|000007a0| 72 3b 0d 09 09 09 63 6f | 75 6e 74 3a 20 6c 6f 6e |r;....co|unt: lon|
|000007b0| 67 69 6e 74 3b 0d 09 09 | 09 09 09 09 28 2a 20 74 |gint;...|....(* t|
|000007c0| 6f 74 61 6c 20 6e 75 6d | 62 65 72 20 6f 66 20 65 |otal num|ber of e|
|000007d0| 6e 74 72 69 65 73 20 69 | 6e 20 64 61 74 61 62 61 |ntries i|n databa|
|000007e0| 73 65 20 2a 29 0d 09 09 | 09 69 3a 20 6c 6f 6e 67 |se *)...|.i: long|
|000007f0| 69 6e 74 3b 0d 09 09 09 | 09 09 09 28 2a 20 69 6e |int;....|...(* in|
|00000800| 64 65 78 65 73 20 6f 76 | 65 72 20 74 68 65 20 64 |dexes ov|er the d|
|00000810| 61 74 61 62 61 73 65 20 | 65 6e 74 72 69 65 73 20 |atabase |entries |
|00000820| 2a 29 0d 09 09 09 74 68 | 69 73 3a 20 49 43 4d 61 |*)....th|is: ICMa|
|00000830| 70 45 6e 74 72 79 3b 0d | 09 09 09 09 09 09 28 2a |pEntry;.|......(*|
|00000840| 20 61 6e 20 75 6e 70 61 | 63 6b 65 64 20 65 6c 65 | an unpa|cked ele|
|00000850| 6d 65 6e 74 20 6f 66 20 | 74 68 65 20 2a 29 0d 09 |ment of |the *)..|
|00000860| 09 09 09 09 09 28 2a 20 | 6d 61 70 70 69 6e 67 73 |.....(* |mappings|
|00000870| 20 64 61 74 61 62 61 73 | 65 2c 20 75 73 65 64 20 | databas|e, used |
|00000880| 77 68 69 6c 65 20 73 74 | 65 70 70 69 6e 67 20 2a |while st|epping *|
|00000890| 29 0d 09 09 09 09 09 09 | 28 2a 20 74 68 72 6f 75 |).......|(* throu|
|000008a0| 67 68 20 64 61 74 61 62 | 61 73 65 20 2a 29 0d 09 |gh datab|ase *)..|
|000008b0| 09 09 65 6e 74 72 79 3a | 20 49 43 4d 61 70 45 6e |..entry:| ICMapEn|
|000008c0| 74 72 79 3b 0d 09 09 09 | 09 09 09 28 2a 20 61 6e |try;....|...(* an|
|000008d0| 20 6d 61 70 70 69 6e 67 | 73 20 64 61 74 61 62 61 | mapping|s databa|
|000008e0| 73 65 20 65 6c 65 6d 65 | 6e 74 20 2a 29 0d 09 09 |se eleme|nt *)...|
|000008f0| 09 09 09 09 28 2a 20 75 | 73 65 64 20 74 6f 20 72 |....(* u|sed to r|
|00000900| 65 63 6f 72 64 20 74 68 | 65 20 62 65 73 74 20 6d |ecord th|e best m|
|00000910| 61 74 63 68 20 2a 29 0d | 09 09 09 6c 6f 6e 67 65 |atch *).|...longe|
|00000920| 73 74 5f 6c 65 6e 3a 20 | 69 6e 74 65 67 65 72 3b |st_len: |integer;|
|00000930| 0d 09 09 09 09 09 09 28 | 2a 20 6c 6f 6e 67 65 73 |.......(|* longes|
|00000940| 74 20 65 78 74 65 6e 73 | 69 6f 6e 20 77 65 27 76 |t extens|ion we'v|
|00000950| 65 20 66 6f 75 6e 64 20 | 73 6f 20 66 61 72 20 2a |e found |so far *|
|00000960| 29 0d 09 09 09 70 6f 73 | 6e 64 78 3a 20 6c 6f 6e |)....pos|ndx: lon|
|00000970| 67 69 6e 74 3b 0d 09 09 | 09 09 09 09 28 2a 20 74 |gint;...|....(* t|
|00000980| 68 65 20 69 6e 64 65 78 | 20 69 6e 74 6f 20 74 68 |he index| into th|
|00000990| 65 20 6d 61 70 70 69 6e | 67 73 20 64 61 74 61 62 |e mappin|gs datab|
|000009a0| 61 73 65 20 2a 29 0d 09 | 09 09 69 6e 66 6f 3a 20 |ase *)..|..info: |
|000009b0| 46 49 6e 66 6f 3b 0d 09 | 09 09 09 09 09 28 2a 20 |FInfo;..|.....(* |
|000009c0| 74 65 6d 70 6f 72 61 72 | 79 20 66 6f 72 20 63 68 |temporar|y for ch|
|000009d0| 61 6e 67 69 6e 67 20 74 | 79 70 65 20 61 6e 64 20 |anging t|ype and |
|000009e0| 63 72 65 61 74 6f 72 20 | 2a 29 0d 09 62 65 67 69 |creator |*)..begi|
|000009f0| 6e 0d 09 09 28 2a 20 63 | 6f 75 6e 74 20 74 68 65 |n...(* c|ount the|
|00000a00| 20 74 6f 74 61 6c 20 6e | 75 6d 62 65 72 20 6f 66 | total n|umber of|
|00000a10| 20 65 6e 74 72 69 65 73 | 20 2a 29 0d 09 09 65 72 | entries| *)...er|
|00000a20| 72 20 3a 3d 20 49 43 4d | 61 70 45 72 72 28 49 43 |r := ICM|apErr(IC|
|00000a30| 4d 43 6f 75 6e 74 45 6e | 74 72 69 65 73 28 6d 61 |MCountEn|tries(ma|
|00000a40| 70 70 69 6e 67 73 2c 20 | 63 6f 75 6e 74 29 29 3b |ppings, |count));|
|00000a50| 0d 09 09 69 66 20 65 72 | 72 20 3c 3e 20 6e 6f 45 |...if er|r <> noE|
|00000a60| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|00000a70| 09 63 6f 75 6e 74 20 3a | 3d 20 30 3b 0d 09 09 65 |.count :|= 0;...e|
|00000a80| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 28 |nd; (* i|f *)...(|
|00000a90| 2a 20 6c 6f 6f 70 20 74 | 68 72 6f 75 67 68 20 74 |* loop t|hrough t|
|00000aa0| 68 65 20 65 6e 74 72 69 | 65 73 20 2a 29 0d 09 09 |he entri|es *)...|
|00000ab0| 28 2a 20 6c 6f 6f 6b 69 | 6e 67 20 66 6f 72 20 74 |(* looki|ng for t|
|00000ac0| 68 65 20 6c 6f 6e 67 65 | 73 74 20 6d 61 74 63 68 |he longe|st match|
|00000ad0| 20 2a 29 0d 09 09 6c 6f | 6e 67 65 73 74 5f 6c 65 | *)...lo|ngest_le|
|00000ae0| 6e 20 3a 3d 20 30 3b 0d | 09 09 70 6f 73 6e 64 78 |n := 0;.|..posndx|
|00000af0| 20 3a 3d 20 30 3b 0d 09 | 09 66 6f 72 20 69 20 3a | := 0;..|.for i :|
|00000b00| 3d 20 31 20 74 6f 20 63 | 6f 75 6e 74 20 64 6f 20 |= 1 to c|ount do |
|00000b10| 62 65 67 69 6e 0d 09 09 | 09 28 2a 20 49 43 4d 47 |begin...|.(* ICMG|
|00000b20| 65 74 45 6e 74 72 79 20 | 67 65 74 73 20 74 68 65 |etEntry |gets the|
|00000b30| 20 65 6e 74 72 79 20 66 | 72 6f 6d 20 6d 61 70 70 | entry f|rom mapp|
|00000b40| 69 6e 67 73 20 2a 29 0d | 09 09 09 28 2a 20 74 68 |ings *).|...(* th|
|00000b50| 61 74 20 73 74 61 72 74 | 73 20 61 74 20 70 6f 73 |at start|s at pos|
|00000b60| 6e 64 78 20 2a 29 0d 09 | 09 09 28 2a 20 61 6e 64 |ndx *)..|..(* and|
|00000b70| 20 70 75 74 73 20 69 74 | 20 69 6e 74 6f 20 74 68 | puts it| into th|
|00000b80| 65 20 65 6e 74 72 79 20 | 72 65 63 6f 72 64 20 2a |e entry |record *|
|00000b90| 29 0d 09 09 09 69 66 20 | 49 43 4d 47 65 74 45 6e |)....if |ICMGetEn|
|00000ba0| 74 72 79 28 6d 61 70 70 | 69 6e 67 73 2c 20 0d 09 |try(mapp|ings, ..|
|00000bb0| 09 09 09 09 09 09 09 09 | 09 70 6f 73 6e 64 78 2c |........|.posndx,|
|00000bc0| 20 74 68 69 73 29 20 3d | 20 6e 6f 45 72 72 20 74 | this) =| noErr t|
|00000bd0| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 28 2a |hen begi|n.....(*|
|00000be0| 20 69 6e 63 72 65 6d 65 | 6e 74 20 70 6f 73 6e 64 | increme|nt posnd|
|00000bf0| 78 20 73 6f 20 74 68 61 | 74 20 77 65 20 67 65 74 |x so tha|t we get|
|00000c00| 20 74 68 65 20 6e 65 78 | 74 20 2a 29 0d 09 09 09 | the nex|t *)....|
|00000c10| 09 28 2a 20 65 6e 74 72 | 79 20 74 68 65 20 6e 65 |.(* entr|y the ne|
|00000c20| 78 74 20 74 69 6d 65 20 | 61 72 6f 75 6e 64 20 74 |xt time |around t|
|00000c30| 68 65 20 6c 6f 6f 70 20 | 2a 29 0d 09 09 09 09 70 |he loop |*).....p|
|00000c40| 6f 73 6e 64 78 20 3a 3d | 20 70 6f 73 6e 64 78 20 |osndx :=| posndx |
|00000c50| 2b 20 74 68 69 73 2e 74 | 6f 74 61 6c 5f 6c 65 6e |+ this.t|otal_len|
|00000c60| 67 74 68 3b 0d 09 09 09 | 09 28 2a 20 74 68 65 20 |gth;....|.(* the |
|00000c70| 65 6e 74 72 79 20 6d 61 | 74 63 68 65 73 20 69 66 |entry ma|tches if|
|00000c80| 20 2a 29 0d 09 09 09 09 | 28 2a 20 6e 6f 74 5f 69 | *).....|(* not_i|
|00000c90| 6e 63 6f 6d 69 6e 67 20 | 66 6c 61 67 20 62 69 74 |ncoming |flag bit|
|00000ca0| 20 69 73 20 63 6c 65 61 | 72 20 2a 29 0d 09 09 09 | is clea|r *)....|
|00000cb0| 09 28 2a 20 69 74 27 73 | 20 6c 6f 6e 67 65 72 20 |.(* it's| longer |
|00000cc0| 74 68 61 6e 20 74 68 65 | 20 70 72 65 76 69 6f 75 |than the| previou|
|00000cd0| 73 20 6d 61 78 20 2a 29 | 0d 09 09 09 09 28 2a 20 |s max *)|.....(* |
|00000ce0| 69 74 27 73 20 6c 6f 6e | 67 65 72 20 74 68 61 6e |it's lon|ger than|
|00000cf0| 20 74 68 65 20 66 69 6c | 65 20 6e 61 6d 65 20 2a | the fil|e name *|
|00000d00| 29 0d 09 09 09 09 28 2a | 20 69 74 20 6d 61 74 63 |).....(*| it matc|
|00000d10| 68 65 73 20 74 68 65 20 | 6c 61 73 74 20 4e 20 63 |hes the |last N c|
|00000d20| 68 61 72 73 20 6f 66 20 | 74 68 65 20 66 69 6c 65 |hars of |the file|
|00000d30| 6e 61 6d 65 20 2a 29 0d | 09 09 09 09 69 66 20 6e |name *).|....if n|
|00000d40| 6f 74 20 62 74 73 74 28 | 74 68 69 73 2e 66 6c 61 |ot btst(|this.fla|
|00000d50| 67 73 2c 0d 09 09 09 09 | 09 09 09 09 09 09 09 49 |gs,.....|.......I|
|00000d60| 43 6d 61 70 5f 6e 6f 74 | 5f 69 6e 63 6f 6d 69 6e |Cmap_not|_incomin|
|00000d70| 67 5f 62 69 74 29 0d 09 | 09 09 09 09 09 26 20 28 |g_bit)..|.....& (|
|00000d80| 6c 65 6e 67 74 68 28 74 | 68 69 73 2e 65 78 74 65 |length(t|his.exte|
|00000d90| 6e 73 69 6f 6e 29 20 3e | 20 6c 6f 6e 67 65 73 74 |nsion) >| longest|
|00000da0| 5f 6c 65 6e 29 0d 09 09 | 09 09 09 09 26 20 28 6c |_len)...|....& (l|
|00000db0| 65 6e 67 74 68 28 74 68 | 69 73 2e 65 78 74 65 6e |ength(th|is.exten|
|00000dc0| 73 69 6f 6e 29 20 3c 20 | 6c 65 6e 67 74 68 28 66 |sion) < |length(f|
|00000dd0| 73 73 2e 6e 61 6d 65 29 | 29 0d 09 09 09 09 09 09 |ss.name)|).......|
|00000de0| 26 20 28 49 55 45 71 75 | 61 6c 53 74 72 69 6e 67 |& (IUEqu|alString|
|00000df0| 28 63 6f 70 79 28 66 73 | 73 2e 6e 61 6d 65 2c 0d |(copy(fs|s.name,.|
|00000e00| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000e10| 6c 65 6e 67 74 68 28 66 | 73 73 2e 6e 61 6d 65 29 |length(f|ss.name)|
|00000e20| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000e30| 09 09 09 2d 20 6c 65 6e | 67 74 68 28 74 68 69 73 |...- len|gth(this|
|00000e40| 2e 65 78 74 65 6e 73 69 | 6f 6e 29 0d 09 09 09 09 |.extensi|on).....|
|00000e50| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2b 20 |........|......+ |
|00000e60| 31 2c 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |1,......|........|
|00000e70| 09 09 09 32 35 35 29 2c | 0d 09 09 09 09 09 09 09 |...255),|........|
|00000e80| 09 09 09 09 09 09 09 74 | 68 69 73 2e 65 78 74 65 |.......t|his.exte|
|00000e90| 6e 73 69 6f 6e 29 20 3d | 20 30 29 20 74 68 65 6e |nsion) =| 0) then|
|00000ea0| 20 62 65 67 69 6e 0d 09 | 09 09 09 09 28 2a 20 72 | begin..|....(* r|
|00000eb0| 65 63 6f 72 64 20 74 68 | 65 20 6e 65 77 20 6c 6f |ecord th|e new lo|
|00000ec0| 6e 67 65 73 74 20 65 6e | 74 72 79 20 2a 29 0d 09 |ngest en|try *)..|
|00000ed0| 09 09 09 09 65 6e 74 72 | 79 20 3a 3d 20 74 68 69 |....entr|y := thi|
|00000ee0| 73 3b 0d 09 09 09 09 09 | 6c 6f 6e 67 65 73 74 5f |s;......|longest_|
|00000ef0| 6c 65 6e 20 3a 3d 20 6c | 65 6e 67 74 68 28 74 68 |len := l|ength(th|
|00000f00| 69 73 2e 65 78 74 65 6e | 73 69 6f 6e 29 3b 0d 09 |is.exten|sion);..|
|00000f10| 09 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00000f20| 0d 09 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |....end;| (* if *|
|00000f30| 29 0d 09 09 65 6e 64 3b | 20 28 2a 20 66 6f 72 20 |)...end;| (* for |
|00000f40| 2a 29 0d 0d 09 09 28 2a | 20 69 66 20 77 65 20 66 |*)....(*| if we f|
|00000f50| 6f 75 6e 64 20 61 6e 79 | 20 6d 61 74 63 68 65 73 |ound any| matches|
|00000f60| 20 74 68 65 6e 20 2a 29 | 0d 09 09 28 2a 20 73 65 | then *)|...(* se|
|00000f70| 74 20 74 68 65 20 66 69 | 6c 65 20 74 79 70 65 20 |t the fi|le type |
|00000f80| 61 6e 64 20 63 72 65 61 | 74 6f 72 20 61 70 70 72 |and crea|tor appr|
|00000f90| 6f 70 72 69 61 74 65 6c | 79 20 2a 29 0d 09 09 69 |opriatel|y *)...i|
|00000fa0| 66 20 6c 6f 6e 67 65 73 | 74 5f 6c 65 6e 20 3e 20 |f longes|t_len > |
|00000fb0| 30 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |0 then b|egin....|
|00000fc0| 65 72 72 20 3a 3d 20 48 | 47 65 74 46 49 6e 66 6f |err := H|GetFInfo|
|00000fd0| 28 66 73 73 2e 76 52 65 | 66 4e 75 6d 2c 20 66 73 |(fss.vRe|fNum, fs|
|00000fe0| 73 2e 70 61 72 49 44 2c | 20 0d 09 09 09 09 09 09 |s.parID,| .......|
|00000ff0| 09 09 66 73 73 2e 6e 61 | 6d 65 2c 20 69 6e 66 6f |..fss.na|me, info|
|00001000| 29 3b 0d 09 09 09 69 66 | 20 65 72 72 20 3d 20 6e |);....if| err = n|
|00001010| 6f 45 72 72 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |oErr the|n begin.|
|00001020| 09 09 09 09 69 6e 66 6f | 2e 66 64 43 72 65 61 74 |....info|.fdCreat|
|00001030| 6f 72 20 3a 3d 20 65 6e | 74 72 79 2e 66 69 6c 65 |or := en|try.file|
|00001040| 5f 63 72 65 61 74 6f 72 | 3b 0d 09 09 09 09 69 6e |_creator|;.....in|
|00001050| 66 6f 2e 66 64 54 79 70 | 65 20 3a 3d 20 65 6e 74 |fo.fdTyp|e := ent|
|00001060| 72 79 2e 66 69 6c 65 5f | 74 79 70 65 3b 0d 09 09 |ry.file_|type;...|
|00001070| 09 09 65 72 72 20 3a 3d | 20 48 53 65 74 46 49 6e |..err :=| HSetFIn|
|00001080| 66 6f 28 66 73 73 2e 76 | 52 65 66 4e 75 6d 2c 20 |fo(fss.v|RefNum, |
|00001090| 66 73 73 2e 70 61 72 49 | 44 2c 20 0d 09 09 09 09 |fss.parI|D, .....|
|000010a0| 09 09 09 09 66 73 73 2e | 6e 61 6d 65 2c 20 69 6e |....fss.|name, in|
|000010b0| 66 6f 29 3b 0d 09 09 09 | 65 6e 64 3b 20 28 2a 20 |fo);....|end; (* |
|000010c0| 69 66 20 2a 29 0d 09 09 | 65 6e 64 0d 09 09 65 6c |if *)...|end...el|
|000010d0| 73 65 20 62 65 67 69 6e | 0d 09 09 09 65 72 72 20 |se begin|....err |
|000010e0| 3a 3d 20 6e 6f 45 72 72 | 3b 0d 09 09 65 6e 64 3b |:= noErr|;...end;|
|000010f0| 20 28 2a 20 69 66 20 2a | 29 0d 0d 09 09 71 75 69 | (* if *|)....qui|
|00001100| 74 5f 6e 6f 77 20 3a 3d | 20 74 72 75 65 3b 0d 09 |t_now :=| true;..|
|00001110| 09 50 72 6f 63 65 73 73 | 44 6f 63 75 6d 65 6e 74 |.Process|Document|
|00001120| 20 3a 3d 20 65 72 72 3b | 0d 09 65 6e 64 3b 20 28 | := err;|..end; (|
|00001130| 2a 20 50 72 6f 63 65 73 | 73 44 6f 63 75 6d 65 6e |* Proces|sDocumen|
|00001140| 74 20 2a 29 0d 0d 28 2a | 20 2a 2a 2a 2a 2a 20 41 |t *)..(*| ***** A|
|00001150| 70 70 6c 65 45 76 65 6e | 74 20 48 61 6e 64 6c 65 |ppleEven|t Handle|
|00001160| 72 73 20 2a 2a 2a 2a 2a | 20 2a 29 0d 0d 09 66 75 |rs *****| *)...fu|
|00001170| 6e 63 74 69 6f 6e 20 48 | 61 6e 64 6c 65 4f 70 65 |nction H|andleOpe|
|00001180| 6e 41 70 70 6c 69 63 61 | 74 69 6f 6e 20 28 74 68 |nApplica|tion (th|
|00001190| 65 41 70 70 6c 65 45 76 | 65 6e 74 3a 20 41 70 70 |eAppleEv|ent: App|
|000011a0| 6c 65 45 76 65 6e 74 3b | 0d 09 09 09 09 09 09 09 |leEvent;|........|
|000011b0| 72 65 70 6c 79 3a 20 41 | 70 70 6c 65 45 76 65 6e |reply: A|ppleEven|
|000011c0| 74 3b 0d 09 09 09 09 09 | 09 09 72 65 66 63 6f 6e |t;......|..refcon|
|000011d0| 3a 20 6c 6f 6e 67 69 6e | 74 29 3a 20 4f 53 45 72 |: longin|t): OSEr|
|000011e0| 72 3b 0d 09 09 28 2a 20 | 74 68 65 20 27 6f 61 70 |r;...(* |the 'oap|
|000011f0| 70 27 20 65 76 65 6e 74 | 20 68 61 6e 64 6c 65 72 |p' event| handler|
|00001200| 2c 20 64 69 73 70 6c 61 | 79 73 20 74 68 65 20 61 |, displa|ys the a|
|00001210| 62 6f 75 74 20 62 6f 78 | 20 2a 29 0d 09 09 28 2a |bout box| *)...(*|
|00001220| 20 73 68 6f 75 6c 64 20 | 6d 6f 73 74 20 70 72 6f | should |most pro|
|00001230| 62 61 62 6c 79 20 6f 6e | 6c 79 20 64 6f 20 74 68 |bably on|ly do th|
|00001240| 69 73 20 69 66 20 77 65 | 27 72 65 20 69 6e 20 2a |is if we|'re in *|
|00001250| 29 0d 09 09 28 2a 20 74 | 68 65 20 66 6f 72 65 67 |)...(* t|he foreg|
|00001260| 72 6f 75 6e 64 20 62 75 | 74 20 74 68 61 74 27 73 |round bu|t that's|
|00001270| 20 6a 75 73 74 20 74 6f | 6f 20 63 6f 6d 70 6c 69 | just to|o compli|
|00001280| 63 61 74 65 64 20 2a 29 | 0d 09 09 28 2a 20 66 6f |cated *)|...(* fo|
|00001290| 72 20 74 68 69 73 20 65 | 78 61 6d 70 6c 65 20 2a |r this e|xample *|
|000012a0| 29 0d 09 09 76 61 72 0d | 09 09 09 65 72 72 3a 20 |)...var.|...err: |
|000012b0| 4f 53 45 72 72 3b 0d 09 | 09 09 65 6d 61 69 6c 5f |OSErr;..|..email_|
|000012c0| 61 64 64 72 65 73 73 3a | 20 53 74 72 32 35 35 3b |address:| Str255;|
|000012d0| 0d 09 09 09 6a 75 6e 6b | 5f 61 74 74 72 3a 20 6c |....junk|_attr: l|
|000012e0| 6f 6e 67 69 6e 74 3b 0d | 09 09 09 6a 75 6e 6b 3a |ongint;.|...junk:|
|000012f0| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 6a 75 6e | integer|;....jun|
|00001300| 6b 5f 69 63 65 72 72 3a | 20 49 43 45 72 72 6f 72 |k_icerr:| ICError|
|00001310| 3b 0d 09 62 65 67 69 6e | 0d 09 09 65 72 72 20 3a |;..begin|...err :|
|00001320| 3d 20 47 6f 74 52 65 71 | 75 69 72 65 64 50 61 72 |= GotReq|uiredPar|
|00001330| 61 6d 73 28 74 68 65 41 | 70 70 6c 65 45 76 65 6e |ams(theA|ppleEven|
|00001340| 74 29 3b 0d 09 09 69 66 | 20 65 72 72 20 3d 20 6e |t);...if| err = n|
|00001350| 6f 45 72 72 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |oErr the|n begin.|
|00001360| 09 09 09 6a 75 6e 6b 5f | 69 63 65 72 72 20 3a 3d |...junk_|icerr :=|
|00001370| 20 49 43 47 65 74 50 72 | 65 66 53 74 72 28 69 6e | ICGetPr|efStr(in|
|00001380| 73 74 61 6e 63 65 2c 20 | 6b 49 43 45 6d 61 69 6c |stance, |kICEmail|
|00001390| 2c 20 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 6a |, ......|.......j|
|000013a0| 75 6e 6b 5f 61 74 74 72 | 2c 20 65 6d 61 69 6c 5f |unk_attr|, email_|
|000013b0| 61 64 64 72 65 73 73 29 | 3b 0d 09 09 09 50 61 72 |address)|;....Par|
|000013c0| 61 6d 54 65 78 74 28 65 | 6d 61 69 6c 5f 61 64 64 |amText(e|mail_add|
|000013d0| 72 65 73 73 2c 20 27 27 | 2c 20 27 27 2c 20 27 27 |ress, ''|, '', ''|
|000013e0| 29 3b 0d 09 09 09 6a 75 | 6e 6b 20 3a 3d 20 41 6c |);....ju|nk := Al|
|000013f0| 65 72 74 28 31 32 38 2c | 20 6e 69 6c 29 3b 0d 09 |ert(128,| nil);..|
|00001400| 09 09 71 75 69 74 5f 6e | 6f 77 20 3a 3d 20 74 72 |..quit_n|ow := tr|
|00001410| 75 65 3b 0d 09 09 65 6e | 64 3b 20 28 2a 20 69 66 |ue;...en|d; (* if|
|00001420| 20 2a 29 0d 09 09 48 61 | 6e 64 6c 65 4f 70 65 6e | *)...Ha|ndleOpen|
|00001430| 41 70 70 6c 69 63 61 74 | 69 6f 6e 20 3a 3d 20 65 |Applicat|ion := e|
|00001440| 72 72 3b 0d 09 65 6e 64 | 3b 20 28 2a 20 48 61 6e |rr;..end|; (* Han|
|00001450| 64 6c 65 4f 70 65 6e 41 | 70 70 6c 69 63 61 74 69 |dleOpenA|pplicati|
|00001460| 6f 6e 20 2a 29 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |on *)...|function|
|00001470| 20 48 61 6e 64 6c 65 4f | 70 65 6e 44 6f 63 75 6d | HandleO|penDocum|
|00001480| 65 6e 74 73 20 28 74 68 | 65 41 70 70 6c 65 45 76 |ents (th|eAppleEv|
|00001490| 65 6e 74 3a 41 70 70 6c | 65 45 76 65 6e 74 3b 0d |ent:Appl|eEvent;.|
|000014a0| 09 09 09 09 09 09 09 72 | 65 70 6c 79 3a 20 41 70 |.......r|eply: Ap|
|000014b0| 70 6c 65 45 76 65 6e 74 | 3b 0d 09 09 09 09 09 09 |pleEvent|;.......|
|000014c0| 09 72 65 66 63 6f 6e 3a | 20 6c 6f 6e 67 69 6e 74 |.refcon:| longint|
|000014d0| 29 3a 20 4f 53 45 72 72 | 3b 0d 09 09 28 2a 20 61 |): OSErr|;...(* a|
|000014e0| 20 66 61 69 72 6c 79 20 | 73 74 61 6e 64 61 72 64 | fairly |standard|
|000014f0| 20 27 6f 64 6f 63 27 20 | 65 76 65 6e 74 20 68 61 | 'odoc' |event ha|
|00001500| 6e 64 6c 65 72 20 2a 29 | 0d 09 09 28 2a 20 67 65 |ndler *)|...(* ge|
|00001510| 74 73 20 74 68 65 20 64 | 6f 63 75 6d 65 6e 74 20 |ts the d|ocument |
|00001520| 6c 69 73 74 2c 20 63 6f | 75 6e 74 73 20 74 68 65 |list, co|unts the|
|00001530| 20 69 74 65 6d 73 20 69 | 6e 20 69 74 20 2a 29 0d | items i|n it *).|
|00001540| 09 09 28 2a 20 67 65 74 | 73 20 74 68 65 20 46 53 |..(* get|s the FS|
|00001550| 53 70 65 63 20 66 6f 72 | 20 65 61 63 68 20 64 6f |Spec for| each do|
|00001560| 63 75 6d 65 6e 74 20 61 | 6e 64 20 63 61 6c 6c 73 |cument a|nd calls|
|00001570| 20 2a 29 0d 09 09 28 2a | 20 50 72 6f 63 65 73 73 | *)...(*| Process|
|00001580| 44 6f 63 75 6d 65 6e 74 | 20 6f 6e 20 69 74 20 2a |Document| on it *|
|00001590| 29 0d 09 09 76 61 72 0d | 09 09 09 66 73 73 3a 20 |)...var.|...fss: |
|000015a0| 46 53 53 70 65 63 3b 0d | 09 09 09 64 6f 63 5f 6c |FSSpec;.|...doc_l|
|000015b0| 69 73 74 3a 20 41 45 44 | 65 73 63 4c 69 73 74 3b |ist: AED|escList;|
|000015c0| 0d 09 09 09 69 6e 64 65 | 78 2c 20 69 74 65 6d 5f |....inde|x, item_|
|000015d0| 63 6f 75 6e 74 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |count: l|ongint;.|
|000015e0| 09 09 09 6a 75 6e 6b 5f | 73 69 7a 65 3a 20 53 69 |...junk_|size: Si|
|000015f0| 7a 65 3b 0d 09 09 09 6a | 75 6e 6b 5f 6b 65 79 77 |ze;....j|unk_keyw|
|00001600| 6f 72 64 3a 20 41 45 4b | 65 79 77 6f 72 64 3b 0d |ord: AEK|eyword;.|
|00001610| 09 09 09 6a 75 6e 6b 5f | 74 79 70 65 3a 20 64 65 |...junk_|type: de|
|00001620| 73 63 54 79 70 65 3b 0d | 09 09 09 65 72 72 2c 20 |scType;.|...err, |
|00001630| 6a 75 6e 6b 3a 20 4f 53 | 45 72 72 3b 0d 09 62 65 |junk: OS|Err;..be|
|00001640| 67 69 6e 0d 09 09 65 72 | 72 20 3a 3d 20 41 45 47 |gin...er|r := AEG|
|00001650| 65 74 50 61 72 61 6d 44 | 65 73 63 28 74 68 65 41 |etParamD|esc(theA|
|00001660| 70 70 6c 65 45 76 65 6e | 74 2c 20 6b 65 79 44 69 |ppleEven|t, keyDi|
|00001670| 72 65 63 74 4f 62 6a 65 | 63 74 2c 0d 09 09 09 09 |rectObje|ct,.....|
|00001680| 09 09 09 74 79 70 65 41 | 45 4c 69 73 74 2c 20 64 |...typeA|EList, d|
|00001690| 6f 63 5f 6c 69 73 74 29 | 3b 0d 09 09 69 66 20 65 |oc_list)|;...if e|
|000016a0| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|000016b0| 62 65 67 69 6e 0d 09 09 | 09 65 72 72 20 3a 3d 20 |begin...|.err := |
|000016c0| 47 6f 74 52 65 71 75 69 | 72 65 64 50 61 72 61 6d |GotRequi|redParam|
|000016d0| 73 28 74 68 65 41 70 70 | 6c 65 45 76 65 6e 74 29 |s(theApp|leEvent)|
|000016e0| 3b 0d 09 09 09 69 66 20 | 65 72 72 20 3d 20 6e 6f |;....if |err = no|
|000016f0| 45 72 72 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |Err then| begin..|
|00001700| 09 09 09 65 72 72 20 3a | 3d 20 41 45 43 6f 75 6e |...err :|= AECoun|
|00001710| 74 49 74 65 6d 73 28 64 | 6f 63 5f 6c 69 73 74 2c |tItems(d|oc_list,|
|00001720| 20 69 74 65 6d 5f 63 6f | 75 6e 74 29 3b 0d 09 09 | item_co|unt);...|
|00001730| 09 65 6e 64 0d 09 09 09 | 65 6c 73 65 20 62 65 67 |.end....|else beg|
|00001740| 69 6e 0d 09 09 09 09 69 | 74 65 6d 5f 63 6f 75 6e |in.....i|tem_coun|
|00001750| 74 20 3a 3d 20 30 3b 0d | 09 09 09 65 6e 64 3b 20 |t := 0;.|...end; |
|00001760| 28 2a 20 69 66 20 2a 29 | 0d 09 09 09 66 6f 72 20 |(* if *)|....for |
|00001770| 69 6e 64 65 78 20 3a 3d | 20 31 20 74 6f 20 69 74 |index :=| 1 to it|
|00001780| 65 6d 5f 63 6f 75 6e 74 | 20 64 6f 20 62 65 67 69 |em_count| do begi|
|00001790| 6e 0d 09 09 09 09 69 66 | 20 65 72 72 20 3d 20 6e |n.....if| err = n|
|000017a0| 6f 45 72 72 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |oErr the|n begin.|
|000017b0| 09 09 09 09 09 65 72 72 | 20 3a 3d 20 41 45 47 65 |.....err| := AEGe|
|000017c0| 74 4e 74 68 50 74 72 28 | 64 6f 63 5f 6c 69 73 74 |tNthPtr(|doc_list|
|000017d0| 2c 20 69 6e 64 65 78 2c | 20 74 79 70 65 46 53 53 |, index,| typeFSS|
|000017e0| 2c 0d 09 09 09 09 09 09 | 09 09 09 09 6a 75 6e 6b |,.......|....junk|
|000017f0| 5f 6b 65 79 77 6f 72 64 | 2c 20 6a 75 6e 6b 5f 74 |_keyword|, junk_t|
|00001800| 79 70 65 2c 0d 09 09 09 | 09 09 09 09 09 09 09 40 |ype,....|.......@|
|00001810| 66 73 73 2c 20 73 69 7a | 65 6f 66 28 66 73 73 29 |fss, siz|eof(fss)|
|00001820| 2c 20 6a 75 6e 6b 5f 73 | 69 7a 65 29 3b 0d 09 09 |, junk_s|ize);...|
|00001830| 09 09 09 69 66 20 65 72 | 72 20 3d 20 6e 6f 45 72 |...if er|r = noEr|
|00001840| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|00001850| 09 09 09 65 72 72 20 3a | 3d 20 50 72 6f 63 65 73 |...err :|= Proces|
|00001860| 73 44 6f 63 75 6d 65 6e | 74 28 66 73 73 29 3b 0d |sDocumen|t(fss);.|
|00001870| 09 09 09 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |.....end|; (* if |
|00001880| 2a 29 0d 09 09 09 09 65 | 6e 64 3b 20 28 2a 20 69 |*).....e|nd; (* i|
|00001890| 66 20 2a 29 0d 09 09 09 | 65 6e 64 3b 20 28 2a 20 |f *)....|end; (* |
|000018a0| 66 6f 72 20 2a 29 0d 09 | 09 09 6a 75 6e 6b 20 3a |for *)..|..junk :|
|000018b0| 3d 20 41 45 44 69 73 70 | 6f 73 65 44 65 73 63 28 |= AEDisp|oseDesc(|
|000018c0| 64 6f 63 5f 6c 69 73 74 | 29 3b 0d 09 09 65 6e 64 |doc_list|);...end|
|000018d0| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 48 61 6e |; (* if |*)...Han|
|000018e0| 64 6c 65 4f 70 65 6e 44 | 6f 63 75 6d 65 6e 74 73 |dleOpenD|ocuments|
|000018f0| 20 3a 3d 20 65 72 72 3b | 0d 09 65 6e 64 3b 20 28 | := err;|..end; (|
|00001900| 2a 20 48 61 6e 64 6c 65 | 4f 70 65 6e 44 6f 63 75 |* Handle|OpenDocu|
|00001910| 6d 65 6e 74 73 20 2a 29 | 0d 0d 09 66 75 6e 63 74 |ments *)|...funct|
|00001920| 69 6f 6e 20 48 61 6e 64 | 6c 65 51 75 69 74 20 28 |ion Hand|leQuit (|
|00001930| 74 68 65 41 70 70 6c 65 | 45 76 65 6e 74 3a 41 70 |theApple|Event:Ap|
|00001940| 70 6c 65 45 76 65 6e 74 | 3b 0d 09 09 09 09 09 09 |pleEvent|;.......|
|00001950| 09 72 65 70 6c 79 3a 20 | 41 70 70 6c 65 45 76 65 |.reply: |AppleEve|
|00001960| 6e 74 3b 0d 09 09 09 09 | 09 09 09 72 65 66 63 6f |nt;.....|...refco|
|00001970| 6e 3a 20 6c 6f 6e 67 69 | 6e 74 29 3a 20 4f 53 45 |n: longi|nt): OSE|
|00001980| 72 72 3b 0d 09 09 28 2a | 20 61 20 66 61 69 72 6c |rr;...(*| a fairl|
|00001990| 79 20 73 74 61 6e 64 61 | 72 64 20 27 71 75 69 74 |y standa|rd 'quit|
|000019a0| 27 20 65 76 65 6e 74 20 | 68 61 6e 64 6c 65 72 20 |' event |handler |
|000019b0| 2a 29 0d 09 09 28 2a 20 | 73 65 74 73 20 71 75 69 |*)...(* |sets qui|
|000019c0| 74 5f 6e 6f 77 20 73 6f | 20 74 68 61 74 20 74 68 |t_now so| that th|
|000019d0| 65 20 6d 61 69 6e 20 65 | 76 65 6e 74 20 6c 6f 6f |e main e|vent loo|
|000019e0| 70 20 71 75 69 74 73 20 | 2a 29 0d 09 09 76 61 72 |p quits |*)...var|
|000019f0| 0d 09 09 09 65 72 72 3a | 20 4f 53 45 72 72 3b 0d |....err:| OSErr;.|
|00001a00| 09 62 65 67 69 6e 0d 09 | 09 65 72 72 20 3a 3d 20 |.begin..|.err := |
|00001a10| 47 6f 74 52 65 71 75 69 | 72 65 64 50 61 72 61 6d |GotRequi|redParam|
|00001a20| 73 28 74 68 65 41 70 70 | 6c 65 45 76 65 6e 74 29 |s(theApp|leEvent)|
|00001a30| 3b 0d 09 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |;...if e|rr = noE|
|00001a40| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|00001a50| 09 71 75 69 74 5f 6e 6f | 77 20 3a 3d 20 74 72 75 |.quit_no|w := tru|
|00001a60| 65 3b 0d 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |e;...end|; (* if |
|00001a70| 2a 29 0d 09 09 48 61 6e | 64 6c 65 51 75 69 74 20 |*)...Han|dleQuit |
|00001a80| 3a 3d 20 65 72 72 3b 0d | 09 65 6e 64 3b 20 28 2a |:= err;.|.end; (*|
|00001a90| 20 48 61 6e 64 6c 65 51 | 75 69 74 20 2a 29 0d 0d | HandleQ|uit *)..|
|00001aa0| 09 76 61 72 0d 09 09 6a | 75 6e 6b 62 6f 6f 6c 3a |.var...j|unkbool:|
|00001ab0| 20 62 6f 6f 6c 65 61 6e | 3b 0d 09 09 65 76 65 6e | boolean|;...even|
|00001ac0| 74 3a 20 45 76 65 6e 74 | 52 65 63 6f 72 64 3b 0d |t: Event|Record;.|
|00001ad0| 09 09 65 72 72 3a 20 4f | 53 45 72 72 3b 0d 09 09 |..err: O|SErr;...|
|00001ae0| 6a 75 6e 6b 3a 20 4f 53 | 45 72 72 3b 0d 09 09 72 |junk: OS|Err;...r|
|00001af0| 65 73 70 6f 6e 73 65 3a | 20 6c 6f 6e 67 69 6e 74 |esponse:| longint|
|00001b00| 3b 0d 09 09 61 74 74 72 | 3a 20 6c 6f 6e 67 69 6e |;...attr|: longin|
|00001b10| 74 3b 0d 62 65 67 69 6e | 0d 09 28 2a 20 46 69 72 |t;.begin|..(* Fir|
|00001b20| 73 74 20 63 68 65 63 6b | 20 66 6f 72 20 53 79 73 |st check| for Sys|
|00001b30| 74 65 6d 20 37 2e 20 20 | 4f 4b 2c 20 73 6f 20 77 |tem 7.  |OK, so w|
|00001b40| 65 27 72 65 20 73 75 70 | 70 6f 73 65 64 20 2a 29 |e're sup|posed *)|
|00001b50| 0d 09 28 2a 20 74 6f 20 | 74 65 73 74 20 66 6f 72 |..(* to |test for|
|00001b60| 20 66 75 6e 63 74 69 6f | 6e 61 6c 69 74 79 20 62 | functio|nality b|
|00001b70| 75 74 20 74 68 69 73 20 | 69 73 20 65 78 61 6d 70 |ut this |is examp|
|00001b80| 6c 65 20 2a 29 0d 09 28 | 2a 20 63 6f 64 65 2e 20 |le *)..(|* code. |
|00001b90| 2a 29 0d 09 69 66 20 28 | 47 65 73 74 61 6c 74 28 |*)..if (|Gestalt(|
|00001ba0| 67 65 73 74 61 6c 74 53 | 79 73 74 65 6d 56 65 72 |gestaltS|ystemVer|
|00001bb0| 73 69 6f 6e 2c 20 72 65 | 73 70 6f 6e 73 65 29 20 |sion, re|sponse) |
|00001bc0| 3c 3e 20 6e 6f 45 72 72 | 29 0d 09 09 09 09 7c 20 |<> noErr|).....| |
|00001bd0| 28 72 65 73 70 6f 6e 73 | 65 20 3c 20 24 37 30 30 |(respons|e < $700|
|00001be0| 29 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 45 |) then b|egin...E|
|00001bf0| 78 69 74 54 6f 53 68 65 | 6c 6c 3b 0d 09 65 6e 64 |xitToShe|ll;..end|
|00001c00| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 0d 09 28 2a 20 |; (* if |*)...(* |
|00001c10| 4e 6f 77 20 69 6e 73 74 | 61 6c 6c 20 6f 75 72 20 |Now inst|all our |
|00001c20| 41 70 70 6c 65 45 76 65 | 6e 74 20 68 61 6e 64 6c |AppleEve|nt handl|
|00001c30| 65 73 2e 20 2a 29 0d 09 | 65 72 72 20 3a 3d 20 41 |es. *)..|err := A|
|00001c40| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|00001c50| 64 6c 65 72 28 6b 43 6f | 72 65 45 76 65 6e 74 43 |dler(kCo|reEventC|
|00001c60| 6c 61 73 73 2c 0d 09 09 | 09 09 09 09 09 6b 41 45 |lass,...|.....kAE|
|00001c70| 4f 70 65 6e 41 70 70 6c | 69 63 61 74 69 6f 6e 2c |OpenAppl|ication,|
|00001c80| 0d 09 09 09 09 09 09 09 | 40 48 61 6e 64 6c 65 4f |........|@HandleO|
|00001c90| 70 65 6e 41 70 70 6c 69 | 63 61 74 69 6f 6e 2c 20 |penAppli|cation, |
|00001ca0| 30 2c 20 66 61 6c 73 65 | 29 3b 0d 09 69 66 20 65 |0, false|);..if e|
|00001cb0| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|00001cc0| 62 65 67 69 6e 0d 09 09 | 65 72 72 20 3a 3d 20 41 |begin...|err := A|
|00001cd0| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|00001ce0| 64 6c 65 72 28 6b 43 6f | 72 65 45 76 65 6e 74 43 |dler(kCo|reEventC|
|00001cf0| 6c 61 73 73 2c 0d 09 09 | 09 09 09 09 09 6b 41 45 |lass,...|.....kAE|
|00001d00| 4f 70 65 6e 44 6f 63 75 | 6d 65 6e 74 73 2c 0d 09 |OpenDocu|ments,..|
|00001d10| 09 09 09 09 09 09 40 48 | 61 6e 64 6c 65 4f 70 65 |......@H|andleOpe|
|00001d20| 6e 44 6f 63 75 6d 65 6e | 74 73 2c 20 30 2c 20 66 |nDocumen|ts, 0, f|
|00001d30| 61 6c 73 65 29 3b 0d 09 | 65 6e 64 3b 20 28 2a 20 |alse);..|end; (* |
|00001d40| 69 66 20 2a 29 0d 09 69 | 66 20 65 72 72 20 3d 20 |if *)..i|f err = |
|00001d50| 6e 6f 45 72 72 20 74 68 | 65 6e 20 62 65 67 69 6e |noErr th|en begin|
|00001d60| 0d 09 09 65 72 72 20 3a | 3d 20 41 45 49 6e 73 74 |...err :|= AEInst|
|00001d70| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|00001d80| 6b 43 6f 72 65 45 76 65 | 6e 74 43 6c 61 73 73 2c |kCoreEve|ntClass,|
|00001d90| 0d 09 09 09 09 09 09 09 | 6b 41 45 51 75 69 74 41 |........|kAEQuitA|
|00001da0| 70 70 6c 69 63 61 74 69 | 6f 6e 2c 0d 09 09 09 09 |pplicati|on,.....|
|00001db0| 09 09 09 40 48 61 6e 64 | 6c 65 51 75 69 74 2c 20 |...@Hand|leQuit, |
|00001dc0| 30 2c 20 66 61 6c 73 65 | 29 3b 0d 09 65 6e 64 3b |0, false|);..end;|
|00001dd0| 20 28 2a 20 69 66 20 2a | 29 0d 0d 09 28 2a 20 73 | (* if *|)...(* s|
|00001de0| 74 61 72 74 75 70 20 49 | 6e 74 65 72 6e 65 74 20 |tartup I|nternet |
|00001df0| 43 6f 6e 66 69 67 20 2a | 29 0d 09 69 66 20 65 72 |Config *|)..if er|
|00001e00| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00001e10| 65 67 69 6e 0d 09 09 65 | 72 72 20 3a 3d 20 49 43 |egin...e|rr := IC|
|00001e20| 4d 61 70 45 72 72 28 49 | 43 53 74 61 72 74 28 69 |MapErr(I|CStart(i|
|00001e30| 6e 73 74 61 6e 63 65 2c | 20 6d 79 5f 63 72 65 61 |nstance,| my_crea|
|00001e40| 74 6f 72 29 29 3b 0d 09 | 09 69 66 20 65 72 72 20 |tor));..|.if err |
|00001e50| 3d 20 6e 6f 45 72 72 20 | 74 68 65 6e 20 62 65 67 |= noErr |then beg|
|00001e60| 69 6e 0d 09 09 09 65 72 | 72 20 3a 3d 20 49 43 4d |in....er|r := ICM|
|00001e70| 61 70 45 72 72 28 49 43 | 46 69 6e 64 43 6f 6e 66 |apErr(IC|FindConf|
|00001e80| 69 67 46 69 6c 65 28 69 | 6e 73 74 61 6e 63 65 2c |igFile(i|nstance,|
|00001e90| 20 30 2c 20 6e 69 6c 29 | 29 3b 0d 09 09 65 6e 64 | 0, nil)|);...end|
|00001ea0| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 0d 09 28 2a 20 |; (* if |*)...(* |
|00001eb0| 66 65 74 63 68 20 74 68 | 65 20 6d 61 70 70 69 6e |fetch th|e mappin|
|00001ec0| 67 73 20 70 72 65 66 65 | 72 65 6e 63 65 20 2a 29 |gs prefe|rence *)|
|00001ed0| 0d 09 09 69 66 20 65 72 | 72 20 3d 20 6e 6f 45 72 |...if er|r = noEr|
|00001ee0| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|00001ef0| 65 72 72 20 3a 3d 20 49 | 43 4d 61 70 45 72 72 28 |err := I|CMapErr(|
|00001f00| 49 43 47 65 74 50 72 65 | 66 48 61 6e 64 6c 65 28 |ICGetPre|fHandle(|
|00001f10| 69 6e 73 74 61 6e 63 65 | 2c 20 6b 49 43 4d 61 70 |instance|, kICMap|
|00001f20| 70 69 6e 67 2c 20 0d 09 | 09 09 09 09 09 09 09 09 |ping, ..|........|
|00001f30| 61 74 74 72 2c 20 6d 61 | 70 70 69 6e 67 73 29 29 |attr, ma|ppings))|
|00001f40| 3b 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |;...end;| (* if *|
|00001f50| 29 0d 0d 09 28 2a 20 65 | 6e 74 65 72 20 6d 61 69 |)...(* e|nter mai|
|00001f60| 6e 20 6c 6f 6f 70 20 2a | 29 0d 09 09 69 66 20 65 |n loop *|)...if e|
|00001f70| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|00001f80| 62 65 67 69 6e 0d 09 09 | 09 71 75 69 74 5f 6e 6f |begin...|.quit_no|
|00001f90| 77 20 3a 3d 20 66 61 6c | 73 65 3b 0d 09 09 09 77 |w := fal|se;....w|
|00001fa0| 68 69 6c 65 20 6e 6f 74 | 20 71 75 69 74 5f 6e 6f |hile not| quit_no|
|00001fb0| 77 20 64 6f 20 62 65 67 | 69 6e 0d 09 09 09 09 6a |w do beg|in.....j|
|00001fc0| 75 6e 6b 62 6f 6f 6c 20 | 3a 3d 20 57 61 69 74 4e |unkbool |:= WaitN|
|00001fd0| 65 78 74 45 76 65 6e 74 | 28 65 76 65 72 79 45 76 |extEvent|(everyEv|
|00001fe0| 65 6e 74 2c 20 65 76 65 | 6e 74 2c 20 0d 09 09 09 |ent, eve|nt, ....|
|00001ff0| 09 09 09 09 09 09 09 09 | 09 6d 61 78 6c 6f 6e 67 |........|.maxlong|
|00002000| 69 6e 74 2c 20 6e 69 6c | 29 3b 0d 09 09 09 09 63 |int, nil|);.....c|
|00002010| 61 73 65 20 65 76 65 6e | 74 2e 77 68 61 74 20 6f |ase even|t.what o|
|00002020| 66 0d 09 09 09 09 09 6b | 65 79 44 6f 77 6e 3a 20 |f......k|eyDown: |
|00002030| 0d 09 09 09 09 09 09 71 | 75 69 74 5f 6e 6f 77 20 |.......q|uit_now |
|00002040| 3a 3d 20 74 72 75 65 3b | 0d 09 09 09 09 09 6b 48 |:= true;|......kH|
|00002050| 69 67 68 4c 65 76 65 6c | 45 76 65 6e 74 3a 20 0d |ighLevel|Event: .|
|00002060| 09 09 09 09 09 09 6a 75 | 6e 6b 20 3a 3d 20 41 45 |......ju|nk := AE|
|00002070| 50 72 6f 63 65 73 73 41 | 70 70 6c 65 45 76 65 6e |ProcessA|ppleEven|
|00002080| 74 28 65 76 65 6e 74 29 | 3b 0d 09 09 09 09 09 6f |t(event)|;......o|
|00002090| 74 68 65 72 77 69 73 65 | 0d 09 09 09 09 09 09 3b |therwise|.......;|
|000020a0| 0d 09 09 09 09 65 6e 64 | 3b 20 28 2a 20 63 61 73 |.....end|; (* cas|
|000020b0| 65 20 2a 29 0d 09 09 09 | 65 6e 64 3b 20 28 2a 20 |e *)....|end; (* |
|000020c0| 77 68 69 6c 65 20 2a 29 | 0d 09 09 65 6e 64 3b 20 |while *)|...end; |
|000020d0| 28 2a 20 69 66 20 2a 29 | 0d 0d 09 09 28 2a 20 73 |(* if *)|....(* s|
|000020e0| 68 75 74 20 64 6f 77 6e | 20 49 43 2c 20 6f 6e 6c |hut down| IC, onl|
|000020f0| 79 20 69 66 20 77 65 20 | 73 75 63 63 65 73 73 66 |y if we |successf|
|00002100| 75 6c 6c 79 20 73 74 61 | 72 74 65 64 20 69 74 20 |ully sta|rted it |
|00002110| 2a 29 0d 09 09 6a 75 6e | 6b 20 3a 3d 20 49 43 53 |*)...jun|k := ICS|
|00002120| 74 6f 70 28 69 6e 73 74 | 61 6e 63 65 29 3b 0d 09 |top(inst|ance);..|
|00002130| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 0d 09 |end; (* |if *)...|
|00002140| 28 2a 20 62 65 65 70 20 | 69 66 20 77 65 20 67 65 |(* beep |if we ge|
|00002150| 74 20 61 6e 79 20 65 72 | 72 6f 72 73 2a 29 0d 09 |t any er|rors*)..|
|00002160| 28 2a 20 73 6f 70 68 69 | 73 74 69 63 61 74 65 64 |(* sophi|sticated|
|00002170| 20 65 72 72 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 | error h|andling |
|00002180| 74 68 69 73 20 69 73 20 | 6e 6f 74 20 2a 29 0d 09 |this is |not *)..|
|00002190| 28 2a 20 61 20 67 6f 6f | 64 20 70 6c 61 63 65 20 |(* a goo|d place |
|000021a0| 74 6f 20 70 75 74 20 61 | 20 62 72 65 61 6b 70 6f |to put a| breakpo|
|000021b0| 69 6e 74 20 74 68 69 73 | 20 69 73 20 2a 29 0d 09 |int this| is *)..|
|000021c0| 69 66 20 65 72 72 20 3c | 3e 20 6e 6f 45 72 72 20 |if err <|> noErr |
|000021d0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 53 79 73 |then beg|in...Sys|
|000021e0| 42 65 65 70 28 31 30 29 | 3b 0d 09 65 6e 64 3b 20 |Beep(10)|;..end; |
|000021f0| 28 2a 20 69 66 20 2a 29 | 0d 65 6e 64 2e 20 28 2a |(* if *)|.end. (*|
|00002200| 20 53 70 61 63 65 41 6c | 69 65 6e 73 20 2a 29 0d | SpaceAl|iens *).|
|00002210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002280| 00 00 01 00 00 00 02 6c | 00 00 01 6c 00 00 00 32 |.......l|...l...2|
|00002290| 6e 64 6c 65 28 69 6e 73 | 74 61 6e 63 65 2c 20 6b |ndle(ins|tance, k|
|000022a0| 49 43 4d 61 70 70 69 6e | 67 2c 20 61 74 74 72 2c |ICMappin|g, attr,|
|000022b0| 0d 53 70 61 63 65 41 6c | 69 65 6e 73 2e 70 02 00 |.SpaceAl|iens.p..|
|000022c0| 00 00 54 45 58 54 50 4a | 4d 4d 01 00 00 14 00 00 |..TEXTPJ|MM......|
|000022d0| 00 00 54 45 58 54 50 4a | 4d 4d 01 00 00 14 00 00 |..TEXTPJ|MM......|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 aa d0 5d 69 00 00 | 21 90 00 00 02 9e 69 6e |....]i..|!.....in|
|00002300| 0d 09 09 09 71 75 69 74 | 5f 6e 6f 77 20 3a 3d 20 |....quit|_now := |
|00002310| 66 61 6c 73 65 3b 0d 09 | 09 09 77 68 69 6c 65 20 |false;..|..while |
|00002320| 6e 6f 74 20 71 75 69 74 | 5f 6e 6f 77 20 64 6f 20 |not quit|_now do |
|00002330| 62 65 67 69 6e 0d 09 09 | 09 09 6a 75 6e 6b 62 6f |begin...|..junkbo|
|00002340| 6f 6c 20 3a 3d 20 57 61 | 69 74 4e 65 78 74 45 76 |ol := Wa|itNextEv|
|00002350| 65 6e 74 28 65 76 65 72 | 79 45 76 65 6e 74 2c 20 |ent(ever|yEvent, |
|00002360| 65 76 65 6e 74 2c 20 6d | 61 78 6c 6f 6e 67 69 6e |event, m|axlongin|
|00002370| 74 2c 20 6e 69 6c 29 3b | 0d 09 09 09 09 63 61 73 |t, nil);|.....cas|
|00002380| 00 00 01 68 00 00 00 00 | 00 00 00 3c 00 de 01 73 |...h....|...<...s|
|00002390| 01 a3 00 0c 00 00 0a 66 | 00 00 0a 66 00 00 00 4e |.......f|...f...N|
|000023a0| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 04 00 | 00 03 00 00 00 48 00 48 |........|.....H.H|
|000023f0| 00 00 00 00 03 0d 02 1a | ff e2 ff e3 03 2c 02 36 |........|.....,.6|
|00002400| 03 03 05 7b 03 e0 00 02 | 00 00 00 48 00 48 00 00 |...{....|...H.H..|
|00002410| 00 00 03 0d 02 1a 00 01 | 00 00 00 64 00 00 00 01 |........|...d....|
|00002420| 00 03 03 03 00 ff 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 60 08 00 19 01 90 |........|..`.....|
|00002440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 08 00 00 |.......M|onaco...|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 04 | 01 00 00 01 00 00 00 00 |........|........|
|000024b0| 00 01 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 01 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000024f0| 00 00 02 6c 00 00 01 6c | 00 00 00 32 00 68 a2 08 |...l...l|...2.h..|
|00002500| 0a a8 00 00 00 1c 00 32 | 00 00 42 42 53 52 00 00 |.......2|..BBSR..|
|00002510| 00 0a 02 50 ff ff 00 00 | 00 00 00 68 a0 70 00 00 |...P....|...h.p..|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+